home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / prog / dnalib59.arj / AREACLS.BAS next >
BASIC Source File  |  1994-01-24  |  280b  |  13 lines
  1. SUB AreaCLS(Row%,Col%,NumRows%,ColsWide%,Character%,Attr%)PUBLIC
  2.  
  3. FGround% = 15 AND Attr%
  4. BGround% = 255 AND (Attr% - LowByte%) / 16
  5.  
  6. COLOR FGround%,BGround%
  7.  
  8. FOR i% = Row% to Row% + NumRows% - 1
  9.  LOCATE i%,Col%,0
  10.  PRINT STRING$(ColsWide%,Character%);
  11. NEXT i%
  12.  
  13. END SUB